home *** CD-ROM | disk | FTP | other *** search
/ Click Press Kit / Click Press Kit.iso / pc / main.dxr / Internal_30_Manager Parent.ls < prev    next >
Encoding:
Text File  |  2006-05-31  |  553 b   |  35 lines
  1. property pStatus, pTimer, pMaxTime, pMaxTime2, pCount, pFirstTime
  2. global gManager, gMaster
  3.  
  4. on new me
  5.   pFirstTime = "notyet"
  6.   pCount = 0
  7.   pTimer = 0
  8.   pMaxTime = 30
  9.   pMaxTime2 = 300
  10.   pStatus = "paused"
  11.   return me
  12. end
  13.  
  14. on stepFrame me
  15.   case pStatus of
  16.     "inactive":
  17.       me.mWatchTimer()
  18.     "active":
  19.       me.mCheckNextImage()
  20.     "paused":
  21.       nothing()
  22.   end case
  23. end
  24.  
  25. on mAddActor me
  26.   add(the actorList, me)
  27. end
  28.  
  29. on mDeleteActor me
  30.   where = getOne(the actorList, me)
  31.   if where > 0 then
  32.     deleteAt(the actorList, where)
  33.   end if
  34. end
  35.